home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 124 / Tiger_Disk_124_20xx_Tiger-Crew-Disk_de_Side_B.d64 / filenamen anhang (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  187 lines
  1. 100 poke53280,2:poke53281,2:poke646,7
  2. 110 poke808,225
  3. 120 gosub4500
  4. 130 gosub3500
  5. 140 gosub2000
  6. 150 x=20:y=2:gosub1000
  7. 160 printdn$
  8. 170 t=18:s=1
  9. 180 open1,8,15,"i0"
  10. 190 open2,8,2,"#"
  11. 200 print#1,"u1 2 0";t;s
  12. 210 get#2,t$,s$
  13. 220 forp=2to226step32
  14. 230 print#1,"b-p 2";p
  15. 240 get#2,f$:iff$=""thenf$=chr$(0)
  16. 250 f=asc(f$):f=fand15
  17. 260 iff<>2then840
  18. 270 o=p+3:print#1,"b-p 2";o:na$=""
  19. 280 fori=1to16:get#2,a$:na$=na$+a$:next
  20. 290 ifh=88then310
  21. 300 gosub1500
  22. 310 x=20:y=6:gosub1000
  23. 320 printna$
  24. 330 ifh=88then360
  25. 340 e$="ueberspringen:  j [146] => ja   n [146] => nein"
  26. 350 gosub2500
  27. 360 get w$:ifw$=""then360
  28. 370 ifw$="n"then410
  29. 380 ifw$="j"thenh=88:goto840
  30. 390 ifw$=chr$(133)thent$="":goto850
  31. 400 goto360
  32. 410 e$="eingabe:  1 [146] => ,8,1      2 [146] => ,8:":h=0
  33. 420 gosub2500
  34. 430 getw$:ifw$=""then430
  35. 440 ifw$="1"thenc$=",8,1":q=11:goto490
  36. 450 ifw$="2"thenc$=",8:":q=12:goto490
  37. 460 ifw$=chr$(134)thenc$="":q=16:goto490
  38. 470 ifw$=chr$(133)thent$="":goto850
  39. 480 goto430
  40. 490 gosub3000
  41. 500 ln=len(na$)
  42. 510 ifln<qthenna$=na$+chr$(32):goto500
  43. 520 na$=left$(na$,q)
  44. 530 ifq=11thene$="eingabe max. 11 zeichen":gosub2500
  45. 540 ifq=12thene$="eingabe max. 12 zeichen": gosub2500
  46. 550 ifq=16thene$="eingabe max. 16 zeichen":gosub2500
  47. 560 ne$="":x=20:y=10:gosub1000
  48. 570 if q=16 thenna$=left$(na$,11)
  49. 580 print">";na$;
  50. 590 v$="":poke646,0:poke207,0:poke204,0
  51. 600 x=21:gosub1000
  52. 610 poke55757,2
  53. 620 getz$:ifz$=""then620
  54. 630 poke204,1
  55. 640 ifz$=chr$(20)then620
  56. 650 ifz$=chr$(13)then700
  57. 660 v$=v$+z$
  58. 670 printv$
  59. 680 iflen(v$)>(q-1)then700
  60. 690 goto600
  61. 700 poke646,7:i=len(v$)
  62. 710 ifi=0thenne$=na$:goto760
  63. 720 ifq=12theng=12:goto740
  64. 730 g=11:ifi>gtheni=g
  65. 740 na$=right$(na$,(g-i))
  66. 750 ne$=v$+na$
  67. 760 gosub3000
  68. 770 ln=len(ne$)
  69. 780 ifln<>q+1thenne$=ne$+chr$(160):goto770
  70. 790 ne$=ne$+c$
  71. 800 x=20:y=14:gosub1000
  72. 810 printne$
  73. 820 print#1,"b-p 2";o
  74. 830 print#2,ne$
  75. 840 next
  76. 850 print#1,"u2 2 0";t;s
  77. 860 close2:close1
  78. 870 t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
  79. 880 ift=0then4000
  80. 890 goto180
  81. 999 rem *** cursorpositionierung ***
  82. 1000 poke211,x:poke214,y:sys58732
  83. 1010 return
  84. 1499 rem *** eintraege loeschen ***
  85. 1500 fork=1to500:next
  86. 1510 x=20:y=10:gosub1000
  87. 1520 print"                 "
  88. 1530 y=14:gosub1000
  89. 1540 print"                    "
  90. 1550 return
  91. 1999 rem *** diskname + id einlesen ***
  92. 2000 open1,8,15,"i":open2,8,2,"#"
  93. 2010 print#1,"u1 2 0 18 0"
  94. 2020 print#1,"b-p 2 144"
  95. 2030 dn$=""
  96. 2040 fori=1to16:get#2,a$:dn$=dn$+a$:nexti
  97. 2050 print#1,"b-p 2 162"
  98. 2060 get#2,a$,b$:dn$=dn$+" "+a$+b$
  99. 2070 close2:close1
  100. 2080 return
  101. 2499 rem *** erklaerung blinken ***
  102. 2500 fori=0to3
  103. 2510 x=1:y=18:gosub1000
  104. 2520 print"                                     "
  105. 2530 fork=1to100:nextk
  106. 2540 gosub1000
  107. 2550 printe$
  108. 2560 fork=1to100:nextk
  109. 2570 nexti
  110. 2580 return
  111. 2999 rem *** erklaerung loeschen ***
  112. 3000 e$=""
  113. 3010 x=1:y=18:gosub1000
  114. 3020 print"                                     "
  115. 3030 return
  116. 3499 rem *** maske ***
  117. 3500 printchr$(147)
  118. 3510 fori=1to4
  119. 3520 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  120. 3530 print"[221]"spc(17)"[221]"
  121. 3540 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  122. 3550 print
  123. 3560 nexti
  124. 3570 x=1:y=2:gosub1000
  125. 3580 print"diskettenname+id:"
  126. 3590 y=6:gosub1000
  127. 3600 print"alter filename:"
  128. 3610 y=10:gosub1000
  129. 3620 print"neuer filename:"
  130. 3630 y=14:gosub1000
  131. 3640 print "fileeintrag neu[146]:":print:print
  132. 3650 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  133. 3660 print"[221]"spc(37)"[221]"
  134. 3670 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  135. 3680 print
  136. 3690 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  137. 3700 print"[221] f1 => ende [221] f3 => anhang wegnehmen [221]"
  138. 3710 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  139. 3720 return
  140. 3999 rem *** ende? ***
  141. 4000 printchr$(147)
  142. 4010 x=0:y=6:gosub1000
  143. 4020 print"        [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  144. 4030 print"        [221]"spc(22)"[221]"
  145. 4040 print"        [221] wollen sie noch eine [221]"
  146. 4050 print"        [221]"spc(22)"[221]"
  147. 4060 print"        [221] diskette bearbeiten? [221]"
  148. 4070 print"        [221]"spc(22)"[221]"
  149. 4080 print"        [221]  j [146] => ja            [221]"
  150. 4090 print"        [221]"spc(22)"[221]"
  151. 4100 print"        [221]  n [146] => nein          [221]"
  152. 4110 print"        [221]"spc(22)"[221]"
  153. 4120 print"        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  154. 4130 [161]w$:[139]w$[178]""[167]4130
  155. 4140 [139]w$[178]"j"[167]h[178]0:[137]130
  156. 4150 [139]w$[178]"n"[167][158]64738
  157. 4160 [137]4130
  158. 4499 [143] *** bedienungsanleitung ***
  159. 4500 [153][199](147);
  160. 4510 [153]"          (NULL)tantantantantantantantantantantantantantantantantantanright$"
  161. 4520 [153]"          (NULL) filenamen anhang (NULL)"
  162. 4530 [153]"          mid$tantantantantantantantantantantantantantantantantantan(NULL)"
  163. 4540 [153]"           von t.herter c1986 "
  164. 4550 [153]" (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  165. 4560 [153]" (NULL)"[166]36)"(NULL)"
  166. 4570 [153]" (NULL) dieses kleine programm ermoeglicht (NULL)"
  167. 4580 [153]" (NULL)"[166]36)"(NULL)"
  168. 4590 [153]" (NULL) es, die filenamen einer diskette   (NULL)"
  169. 4600 [153]" (NULL)"[166]36)"(NULL)"
  170. 4610 [153]" (NULL) mit einem anhang zu versehen,      (NULL)"
  171. 4620 [153]" (NULL)"[166]36)"(NULL)"
  172. 4630 [153]" (NULL) entweder mit ,8,1 oder mit ,8:     (NULL)"
  173. 4640 [153]" (NULL)"[166]36)"(NULL)"
  174. 4650 [153]" (NULL) weiterhin laesst sich der filename (NULL)"
  175. 4660 [153]" (NULL)"[166]36)"(NULL)"
  176. 4670 [153]"close(NULL) durch ueberschreiben veraendern.   (NULL)"
  177. 4680 [153]" (NULL)"[166]36)"(NULL)"
  178. 4690 [153]"close(NULL) bitte legen sie die zu bearbei-    (NULL)"
  179. 4700 [153]" (NULL)"[166]36)"(NULL)"
  180. 4710 [153]" (NULL) tende diskette ein und druecken    (NULL)"
  181. 4720 [153]" (NULL)"[166]36)"(NULL)"
  182. 4730 [153]" (NULL) sie eine tastewait.                    (NULL)"
  183. 4740 [153]" (NULL)"[166]36)"(NULL)"
  184. 4750 [153]"closemid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)on"
  185. 4760 [146]198,1
  186. 4770 [142]
  187.